home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / TNC Image 230317182001.psc / Form4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-24  |  5.0 KB  |  157 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "About TNC 2"
  5.    ClientHeight    =   4440
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1500
  8.    ClientWidth     =   5910
  9.    LinkTopic       =   "Form4"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4440
  13.    ScaleWidth      =   5910
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Frame Frame1 
  16.       BackColor       =   &H8000000A&
  17.       Height          =   4335
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   5655
  22.       Begin VB.CommandButton Command1 
  23.          Caption         =   "OK"
  24.          Height          =   255
  25.          Left            =   4680
  26.          TabIndex        =   8
  27.          Top             =   3840
  28.          Width           =   735
  29.       End
  30.       Begin VB.Image Image2 
  31.          BorderStyle     =   1  'Fixed Single
  32.          Height          =   2235
  33.          Left            =   3480
  34.          Picture         =   "Form4.frx":0000
  35.          Stretch         =   -1  'True
  36.          Top             =   120
  37.          Width           =   2055
  38.       End
  39.       Begin VB.Label Label7 
  40.          Caption         =   "Dedicated To Tahmina Nur Chowdhuri"
  41.          BeginProperty Font 
  42.             Name            =   "MS Sans Serif"
  43.             Size            =   8.25
  44.             Charset         =   0
  45.             Weight          =   700
  46.             Underline       =   0   'False
  47.             Italic          =   -1  'True
  48.             Strikethrough   =   0   'False
  49.          EndProperty
  50.          Height          =   255
  51.          Left            =   1200
  52.          TabIndex        =   7
  53.          Top             =   2760
  54.          Width           =   3615
  55.       End
  56.       Begin VB.Label Label6 
  57.          Caption         =   "Product No:0001-1244HM-77777"
  58.          Height          =   255
  59.          Left            =   1680
  60.          TabIndex        =   6
  61.          Top             =   3840
  62.          Width           =   2415
  63.       End
  64.       Begin VB.Label Label5 
  65.          Caption         =   "CopyRight By General Corporation"
  66.          Height          =   255
  67.          Left            =   1680
  68.          TabIndex        =   5
  69.          Top             =   3600
  70.          Width           =   2655
  71.       End
  72.       Begin VB.Label Label4 
  73.          Caption         =   "A multimedia Production"
  74.          BeginProperty Font 
  75.             Name            =   "MS Sans Serif"
  76.             Size            =   8.25
  77.             Charset         =   0
  78.             Weight          =   700
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          Height          =   255
  84.          Left            =   1920
  85.          TabIndex        =   4
  86.          Top             =   3360
  87.          Width           =   2295
  88.       End
  89.       Begin VB.Image Image1 
  90.          Height          =   720
  91.          Left            =   360
  92.          Picture         =   "Form4.frx":2EC42
  93.          Top             =   480
  94.          Width           =   720
  95.       End
  96.       Begin VB.Label Label3 
  97.          Caption         =   $"Form4.frx":2FB0C
  98.          Height          =   975
  99.          Left            =   600
  100.          TabIndex        =   3
  101.          Top             =   1440
  102.          Width           =   4575
  103.       End
  104.       Begin VB.Label Label2 
  105.          Caption         =   "Version 2.01"
  106.          Height          =   255
  107.          Left            =   2400
  108.          TabIndex        =   2
  109.          Top             =   1080
  110.          Width           =   1215
  111.       End
  112.       Begin VB.Label Label1 
  113.          Caption         =   "About TNC2 "
  114.          BeginProperty Font 
  115.             Name            =   "MS Sans Serif"
  116.             Size            =   18
  117.             Charset         =   0
  118.             Weight          =   700
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          Height          =   735
  124.          Left            =   1920
  125.          TabIndex        =   1
  126.          Top             =   600
  127.          Width           =   2175
  128.       End
  129.       Begin VB.Line Line1 
  130.          BorderColor     =   &H00808080&
  131.          BorderWidth     =   2
  132.          X1              =   480
  133.          X2              =   5160
  134.          Y1              =   2520
  135.          Y2              =   2520
  136.       End
  137.    End
  138. Attribute VB_Name = "Form4"
  139. Attribute VB_GlobalNameSpace = False
  140. Attribute VB_Creatable = False
  141. Attribute VB_PredeclaredId = True
  142. Attribute VB_Exposed = False
  143. Private Sub Command1_Click()
  144. Unload Me
  145. End Sub
  146. Private Sub Form_Load()
  147. Label7.Visible = False
  148. Image2.Visible = False
  149. End Sub
  150. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  151. Image2.Visible = False
  152. End Sub
  153. Private Sub Label5_DblClick()
  154. Image2.Visible = True
  155. Label7.Visible = True
  156. End Sub
  157.